function OutputPath=SubFun_Solver_CPaths(PP,SS,MODEL,InputPath,Input_Lag_B)

if nargin<=4 || isempty(Input_Lag_B)
    Input_Lag_B     =   0;
end
optset('bisect','tol',1e-9);
TempFun         =   @(TempCp)SubFun_Solver_CPaths_BRes(PP,SS,MODEL,InputPath,Input_Lag_B,TempCp);

TempCp          =   bisect(TempFun,-0.5,0.5);

[~,OutputPath]  =   SubFun_Solver_CPaths_BRes(PP,SS,MODEL,InputPath,Input_Lag_B,TempCp);